home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Game On 1989 February
/
Game_On_89-02_1989_-_de_Side_B.d64
/
heisse luft
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
20KB
|
600 lines
10 v=53248:si=54272:poke53280,0:poke53281,0:poke1054,1:pokev+21,0
20 dim szene(28),t(40),in(50),berg(4,8)
30 deffna(v)=int((peek(v+4)-10)/8)+40*int((peek(v+5)-40)/8)+49152
50 pokesi+24,31
100 gosub 50000
110 gosub 60000
120 poke 1040,3
130 poke1054,1
990 rem -----------
995 rem startbereit
996 rem -----------
1000 pokev+17,peek(v+17)and(255-16)
1010 gosub40100:gosub40000:gosub3000
1012 ifbz=1thenkf=1
1015 fora=1to300:next:pokev+17,peek(v+17)or16:sys4096*8
1016 ifbz<>1andkf=0then1030
1017 print" alle systeme startklar ! ";
1018 print" \z[146]:xv[146]";
1020 if(peek(56320)and16)<>0then1020
1023 ifbz=1thenpoke1054,0
1025 ifpeek(50170)=43thenpoke50170,28
1030 gosub40100:poke158,1:poke254,1:poke1027,0:poke148,1
1040 ba$="":ifba<>0thenfora=1toba:ba$=ba$+"n[146]":next
1050 print" "
1090 rem -----------
1095 rem hauptabrage
1096 rem -----------
1100 print"gas:abcdefghi[146] s[146]"sa"[157] n[146]"ba"[157] [145]"
1101 print"t[146] \z[146]:xv[146]"
1102 a1=peek(56320):poke1023,gas
1103 if(((a1and16)=0)and(gas>ff))thengas=gas-ff
1104 if(((a1and4)=0)or((a1and8)=0))and(gas>ff)thengas=gas-(ff/2)
1105 ifpeek(1054)=1then8000
1106 if(peek(56320)and1)=0then1300
1107 ifint(rnd(ti)*(zu+f))=0then1600
1120 ifpeek(1027)<>0then1800
1125 ifpeek(1026)<>0then1500
1130 if(peek(56320)and2)=0then1200
1140 ifpeek(1028)<>0then2000
1145 kf=0
1160 goto1100
1195 rem -------------
1196 rem sack abwerfen
1197 rem -------------
1200 ifsa=0then1100
1205 ifpeek(166)<>0then1100
1210 poke166,200:poke1015,1:poke1021,10
1220 sa=sa-1:goto1100
1295 rem -----------
1296 rem pause modus
1297 rem -----------
1300 poke1040,2
1305 poke1038,1
1310 geta$:ifa$<>""then1315
1311 if(peek(56320)and16)<>0then1310
1315 poke1038,0
1320 poke1040,3:kf=1:gosub3000:poke158,1:poke254,1:poke1027,0:goto1100
1495 rem ---------------
1496 rem ausserhalb bild
1497 rem ---------------
1500 iffb=1then1505
1505 on peek(1026) goto 1510,1520,1530,1540
1510 goto1130
1520 goto1130
1530 bz=bz+1:x=65:y=7:goto1550
1540 bz=bz-1:x=26:y=0:goto1550
1550 poke1040,2:gosub3000
1555 poke158,0:pokev,x:pokev+2,x:pokev+4,x:poke158,1
1560 poke1026,0:poke1040,3:poke1027,0:ify=0thenpokev+16,peek(v+16)and248:goto1590
1570 pokev+16,peek(v+16)or7
1590 poke254,1:poke158,1:pokev+17,peek(v+17)or16:sys4096*8:pokev+30,0:poke1027,0
1591 goto1100
1595 rem ------------
1596 rem blitz+donner
1597 rem ------------
1600 ifoy<=65then1120
1605 if(peek(v+16)and32)=1andpeek(v+10)>50then1620
1610 ifzu=20thenpokev+21,peek(v+21)or32:poke1029,1:zu=4:f=2:goto1120
1620 ifzu=4thenpokev+21,peek(v+21)and223:poke1030,1:zu=20:f=fz:goto1120
1795 rem ---------
1796 rem kollision
1797 rem ---------
1800 rem
1820 pokesi+15,255:pokesi+19,0:pokesi+20,251:pokesi+23,0:pokesi+11,0
1830 pokesi+18,129:pokesi+18,128
1850 poke147,0:poke248,1:poke247,1:poke252,uy-1
1860 ifpeek(165)=1thenpoke165,0:goto1880
1870 poke165,1
1880 ifpeek(251)=1thenpoke251,0
1890 poke50168,44:poke50169,17
1895 fora=1to20:next
1900 ifpeek(v+1)>200then1950
1910 poke50168,45:poke50169,46
1915 fora=1to20:next
1920 ifpeek(v+1)>200then1950
1930 poke50168,47:poke50169,46
1935 fora=1to20:next
1940 ifpeek(v+1)<200then1940
1950 ifgas<35thengas=35
1951 ifsa<5thensa=5
1952 ba=ba-1:poke158,0:poke254,0:ifba=-1then9000
1953 ifbz=1then1000
1955 pokev+17,peek(v+17)and(255-16)
1956 fora=1to300:next:pokev+17,peek(v+17)or16:sys4096*8
1957 pokesi+24,31
1970 ifxs=0then1975
1971 ifxs>255thenxs=xs-255:pokev+16,peek(v+16)or7:goto1973
1972 pokev+16,peek(v+16)and248
1973 pokev,xs:pokev+2,xs:pokev+4,xs
1975 pokev+1,34:poke50168,16:poke50169,17:a=0
1980 pokev+1,peek(v+1)+1:pokev+3,peek(v+1):pokev+5,peek(v+1)+21:poke1027,0
1982 if peek(v+1)>180thenpoke(v+1),30:goto1980
1985 ifpeek(1027)>2then1980
1986 a=a+1:ifa<16then1980
1990 gosub40100:gosub40000
1991 goto1017
1995 rem --------------------
1996 rem stuetzpunkt erreicht
1997 rem --------------------
2000 ifkf=1then1100
2005 kf=1:poke148,0
2007 if(bild=1andpeek(182)=1)then6000
2010 poke254,0:poke158,0:poke50170,43:d1=int(rnd(ti)*3)+1
2015 d2=int(rnd(ti)*3)+4:ifd1=d2then2015
2020 gosub4000:vp=peek(v+21)
2025 if(peek(v+1)>70)and(peek(v+1)<170)thenpokev+21,peek(v+21)and248
2030 print"[149] kkkkkkkkkkkkkkkkkkkkkk [146]"
2035 c=10:ifbild<>23andbild<>1thenc=8
2040 fora=1toc
2050 print"[149]l[146] ";t$(a);" [149]l[146]"
2060 nexta
2070 print"[149] kkkkkkkkkkkkkkkkkkkkkk [146]"
2075 ifbild=23orbild=1then2250
2080 bs=49441:hw=1:gosub62200:le=le-1
2090 a=d1:ifwa=2thena=d2
2095 ifd1=0then2200
2100 on(a)goto2110,2120,2130,2140,2150,2160
2110 sa=sa+3:goto2200
2120 sa=sa+5:goto2200
2130 sa=sa+10:goto2200
2140 gas=gas+20:goto2200
2150 gas=gas+40:goto2200
2160 ba=ba+1:goto2200
2200 in(bz)=0:ifgas>79thengas=79
2210 gosub3000:pokev+21,vp:gosub40000
2220 pokev+17,peek(v+17)or16:sys4096*8:goto1017
2250 if(peek(56320)and16)<>0then2250
2260 goto2210
2990 rem -------------
2995 rem bild erzeugen
2996 rem -------------
3000 poke254,0:poke158,0:pokev+17,peek(v+17)and(255-16):poke1040,2
3001 ifkf=1then3007
3002 pokev+21,0:xs=0
3003 poke1034,int(rnd(ti)*30)+3+fw:poke1035,int(rnd(ti)*7)+fw
3004 poke1036,int(rnd(ti)*7)+fw
3007 iffb=0thenbild=szene(bz)
3009 if bild>12 then3020
3010 on bild goto 3100,3110,3120,3130,3140,3150,3160,3170,3180,3190,3200,3210
3020 if bild>23 then3040
3030 on (bild-12) goto 3220,3230,3240,3250,3260,3270,3280,3290,3300,3310,3320
3040 if bild>34 then3060
3050 on (bild-23) goto 3330,3340,3350,3360,3370,3380,3390,3400,3410,3420,3430
3060 if bild>45 then3080
3070 on (bild-34)goto3435,3440,3445,3450,3455,3460,3465,3470,3475,3480,3485
3080 on (bild-45)goto3490,3495
3100 l=0 :h=160:wi=1 :oy=0 :goto3500
3110 l=17 :h=161:wi=2 :oy=70 :goto3500
3120 l=185:h=161:wi=2 :oy=140:goto3500
3130 l=45 :h=162:wi=3 :oy=60 :goto3500
3140 l=6 :h=163:wi=4 :oy=150:goto3500
3150 l=91 :h=163:wi=4 :oy=130:goto3500
3160 l=154:h=163:wi=4 :oy=150:goto3500
3170 l=15 :h=164:wi=5 :oy=60 :goto3500
3180 l=204:h=164:wi=4 :oy=80 :goto3500
3190 l=63 :h=165:wi=6 :oy=50 :goto3500
3200 l=44 :h=166:wi=7 :oy=50:goto3500
3210 l=111:h=167:wi=6 :oy=60 :goto3500
3220 l=245:h=167:wi=4 :oy=50 :goto3500
3230 l=154:h=168:wi=8 :oy=60 :goto3500
3240 l=125:h=170:wi=9 :oy=50 :goto3500
3250 l=207:h=169:wi=11:oy=100:goto3500
3260 l=18 :h=171:wi=3 :oy=60 :goto3500
3270 l=196:h=171:wi=4 :oy=180:goto3500
3280 l=13 :h=172:wi=10:oy=180:goto3500
3290 l=99 :h=172:wi=10:oy=180:goto3500
3300 l=196:h=172:wi=12:oy=140:goto3500
3310 l=248:h=172:wi=6 :oy=60 :goto3500
3320 l=2 :h=174:wi=8 :oy=0 :xs=250:goto3500
3330 l=24 :h=175:wi=8 :oy=180:goto3500
3500 poke168,0:poke169,216:poke149,0:poke150,192:poke170,l:poke171,h:sys832
3505 ifin(bz)=0thenpoke1041,1
3510 if wi>12then3530
3520 on wi gosub 3600,3610,3620,3630,3640,3650,3660,3670,3680,3690,3700,3710
3525 goto3540
3530 on (wi-12) gosub 3720,3730,3740,3750,3760,3770,3780
3540 ifkf=1then3570
3550 ifoy<=65thenpokev+9,int(rnd(ti)*(oy-40))+40:goto3560
3551 ifoy<=110thenpokev+13,int(rnd(ti)*20)+40
3552 ifoy<=110thenpokev+9,int(rnd(ti)*30)+80:goto3560
3555 pokev+9,int(rnd(ti)*(oy-110))+110
3556 pokev+13,int(rnd(ti)*20)+40
3557 pokev+15,int(rnd(ti)*30)+80
3560 pokev+11,peek(v+9)+16:pokev+8,150:pokev+10,150:pokev+12,150:pokev+14,150
3561 pokev+16,peek(v+16)and15
3565 ifint(rnd(ti)*3)=0thenpokev+45,2:poke50174,42:pokev+29,16:goto3567
3566 pokev+45,15:poke50174,40:pokev+29,80
3567 ifint(rnd(ti)*3)<>0then3569
3568 pokev+46,15:poke50175,42:pokev+29,peek(v+29)and127:goto3570
3569 pokev+46,1:poke50175,40:pokev+29,peek(v+29)or128
3570 ifoy=0thenpokev+21,15:goto3590
3575 ifoy<=65thenpokev+21,31:goto3590
3576 ifoy<=110thenpokev+21,95:goto3590
3580 pokev+21,223
3590 pokev+17,peek(v+17)or16:sys4096*8:pokev+31,0:poke1027,0:poke1040,4:return
3600 poke977,100:poke978,1:poke979,10*wf:poke980,180:poke981,2:poke982,10*wf
3601 poke983,250:poke984,0:poke985,5*wf:poke986,0:return
3610 poke977,100:poke978,1:poke979,5*wf:poke980,155:poke981,2:poke982,10*wf
3611 poke983,250:poke984,0:poke985,5*wf:poke986,0:return
3620 poke977,80:poke978,1:poke979,10*wf:poke980,115:poke981,2:poke982,10*wf
3621 poke983,250:poke984,1:poke985,15*wf:poke986,0:return
3630 poke977,100:poke978,1:poke979,12*wf:poke980,155:poke981,2:poke982,5*wf
3631 poke983,250:poke984,1:poke985,5*wf:poke986,0:return
3640 poke977,60:poke978,1:poke979,10*wf:poke980,160:poke981,2:poke982,15*wf
3641 poke983,250:poke984,1:poke985,15*wf:poke986,0:return
3650 poke977,160:poke978,1:poke979,8*wf:poke980,250:poke981,2:poke982,15*wf
3651 poke983,0:return
3660 poke977,130:poke978,1:poke979,10*wf:poke980,250:poke981,2:poke982,10*wf
3661 poke983,0:return
3670 poke977,60:poke978,1:poke979,5*wf:poke980,140:poke981,0:poke982,5*wf
3671 poke983,160:poke984,2:poke985,10*wf:poke986,250:poke987,1:poke988,15*wf
3672 poke989,0:return
3680 poke977,90:poke978,1:poke979,5*wf:poke980,250:poke981,2:poke982,15*wf
3681 poke983,0:return
3690 poke977,120:poke978,1:poke979,5*wf:poke983,250:poke984,1:poke985,15*wf
3691 poke980,160:poke981,2:poke982,10*wf:poke986,0:return
3700 poke977,80:poke978,1:poke979,5*wf:poke980,130:poke981,2:poke982,10*wf
3701 poke983,250:poke984,0:poke985,5*wf:poke986,0:return
3710 poke977,100:poke978,1:poke979,5*wf:poke980,170:poke981,2:poke982,10*wf
3711 poke983,250:poke984,1:poke985,15*wf:poke986,0:return
3990 rem ----------------------
3995 rem lagerinhalt decodieren
3996 rem ----------------------
4000 rem
4050 t$(1)=" ":t$(3)=t$(1):t$(5)=t$(1):t$(6)=t$(1)
4060 t$(8)=t$(1)
4070 t$(2)=" .."+di$(d1):t$(4)=" .."+di$(d2):t$(7)="was willst du ? "
4080 t$(8)=t$(1):t$(9)=" ":t$(10)=t$(1)
4100 ifbild=1then4300
4110 ifbild=23then4200
4120 return
4200 ifle>9thena$=str$(le)
4202 ifle<10thena$=" 0"+right$(str$(le),1)
4205 t$(2)="im basislager bekom-"
4210 t$(4)="mst du einen motor "
4220 t$(6)="und gas ! du musst "
4221 t$(8)="noch"+a$+" leute retten"
4222 t$(7)=" "
4225 gas=71:poke182,1
4230 return
4300 t$(2)="was willst du denn "
4310 t$(4)="noch hier ? jetzt "
4320 t$(6)="aber nichts wie los!"
4321 t$(8)="viel gl@ck ! "
4322 t$(7)=" "
4330 return
6000 rem
6005 bz=27:kf=0:print"[147]":gosub3000:poke158,0:poke254,0:poke1040,4
6006 pokev+45,1:poke50174,40:pokev+29,240:pokev+46,1:poke50175,40
6007 pokev,95:pokev+2,95:pokev+4,95:pokev+16,0:pokev+1,179:pokev+3,179
6008 pokev+5,200:poke148,0:poke50170,43
6009 pokev+9,150:pokev+13,170:pokev+15,160:pokev+8,80:gosub6500
6010 ifle<>0thenrun
6015 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
6020 print"[149]l[146] l[146]"
6030 print"[149]l[146] unter den geretteten befand [149]l[146]"
6040 print"[149]l[146] l[146]"
6050 print"[149]l[146] sich ein million]r. er schenkt [149]l[146]"
6060 print"[149]l[146] l[146]"
6070 print"[149]l[146] dir aus dankbarkeit eine nette [149]l[146]"
6080 print"[149]l[146] l[146]"
6090 print"[149]l[146] kleine s@dseeinsel. [149]l[146]"
6100 print"[149]l[146] l[146]"
6105 print"[149]l[146][144] dr@cke space ! [149]l[146]"
6106 print"[149]l[146] l[146]"
6110 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]":poke198,0
6120 geta$:ifa$<>" "then6120
6130 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
6140 print"[149]l[146] l[146]"
6150 print"[149]l[146] dort machst du dir ein sch[nes [149]l[146]"
6160 print"[149]l[146] l[146]"
6170 print"[149]l[146] leben und l]sst dich von den [149]l[146]"
6180 print"[149]l[146] l[146]"
6190 print"[149]l[146] inselbewohnerinnen verw[hnen ! [149]l[146]"
6200 print"[149]l[146] l[146]"
6210 print" kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
6215 print" "
6216 print" "
6217 print" "
6218 print" ":poke198,0
6220 if(peek(56320)and16)=0then6230
6225 geta$:ifa$<>" "then6220
6230 run
6500 z=peek(1046)+peek(1047)*10+peek(1048)*60+peek(1049)*600
6501 z=1800-z:z1=int(z/60):z2=z-z1*60
6502 z1$=right$(str$(z1),2):ifz1<10thenz1$="0"+right$(str$(z1),1)
6503 z2$=right$(str$(z2),2):ifz2<10thenz2$="0"+right$(str$(z2),1)
6505 ze$=z1$+":"+z2$
6506 sc=z*10+(20-le)*1000+ba*5000
6507 sc$=right$(str$(sc),5)
6508 le$=right$(str$(20-le),2):if(20-le)<10thenle$="0"+right$(str$(20-le),1)
6509 ifle=0thenle$=le$+" (alle)"
6510 ifle<>0thenle$=le$+" "
6511 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
6515 print"[149]l[146] l[146]"
6520 print"[149]l[146] deine zeit: "ze$" [149]l[146]"
6521 ifsc<10000thenra$="ballonf@hrer 5.kl.":goto6530
6522 ifsc<20000thenra$="ballonf@hrer 4.kl.":goto6530
6523 ifsc<30000thenra$="ballonf@hrer 3.kl.":goto6530
6524 ifsc<40000thenra$="ballonf@hrer 2.kl.":goto6530
6525 ra$="ballonf@hrer 1.kl."
6530 print"[149]l[146] l[146]"
6540 print"[149]l[146] gerettet: "le$" [149]l[146]"
6550 print"[149]l[146] l[146]"
6560 print"[149]l[146] deine punkte: "sc$" [149]l[146]"
6570 print"[149]l[146] l[146]"
6580 print"[149]l[146] dein rang: "ra$" [149]l[146]"
6590 print"[149]l[146] l[146]"
6595 print"[149]l[146][144] dr@cke space [149] l[146]"
6596 print"[149]l[146] l[146]"
6600 print" kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
6610 geta$:ifa$<>" "then6610
6620 return
8000 a=peek(v+21):pokev+21,0:poke1040,2:pokesi+24,0
8010 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
8020 print"[149]l[146] l[146]"
8030 print"[149]l[146] kaum zu glauben, aber du [149]l[146]"
8040 print"[149]l[146] l[146]"
8050 print"[149]l[146] spielst jetzt seit 1/2 stunde. [149]l[146]"
8060 print"[149]l[146] l[146]"
8070 print"[149]l[146] diese unglaubliche ausdauer [149]l[146]"
8080 print"[149]l[146] l[146]"
8090 print"[149]l[146] muss mit einer zeitgutschrift [149]l[146]"
8100 print"[149]l[146] l[146]"
8110 print"[149]l[146] belohnt werden (dr@cke space)! [149]l[146]"
8120 print"[149]l[146] l[146]"
8130 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
8150 geta$:ifa$<>" "then8150
8160 poke1046,0:poke1047,0:poke1048,5:poke1049,0:poke1054,0:pokev+21,a
8170 gosub3000:pokesi+24,31:goto1320
9000 pokev+21,0:poke1040,2
9010 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
9020 print"[149]l[146] l[146]"
9030 print"[149]l[146] pech gehabt, was? na ja es ist [149]l[146]"
9040 print"[149]l[146] l[146]"
9050 print"[149]l[146] noch kein meister von himmel [149]l[146]"
9055 if le<5 then ra$="steuermann ":goto9060
9056 if le<10 then ra$="bodenpersonal ":goto9060
9057 if le<15 then ra$="ballonn]her ":goto9060
9058 ra$="gasflaschenf@ller"
9060 print"[149]l[146] l[146]"
9070 print"[149]l[146] gefallen (eben!). [149]l[146]"
9080 print"[149]l[146] l[146]"
9090 print"[149]l[146] dein rang: "ra$" [149]l[146]"
9100 print"[149]l[146] l[146]"
9110 print"[149]l[146][144] dr@cke space [149]l[146]"
9120 print"[149]l[146] l[146]"
9130 print"[149] kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk [146]"
9140 geta$:ifa$<>" "then9140
9150 run
9999 stop
30000 a=peek(56320)
30010 if(aand1)=0thenpokev+1,peek(v+1)-1:pokev+3,peek(v+3)-1:pokev+5,peek(v+5)-1
30020 if(aand2)=0thenpokev+1,peek(v+1)+1:pokev+3,peek(v+3)+1:pokev+5,peek(v+5)+1
30030 print"";peek(v+1),bz
30040 if(aand16)=0thenbz=bz+1:gosub3000
30050 goto30000
39990 rem ----------------------------
39995 rem alle zaehler auf null setzen
39996 rem ----------------------------
40000 poke146,0:poke159,0:poke165,1:poke166,0:poke167,0:poke176,0:poke178,0
40010 poke180,0:poke192,0:poke251,1:poke252,0:poke253,0:poke1002,0:poke1004,0
40020 poke1020,0:poke1026,0:poke1027,0:poke50168,16:poke50169,17:d1=1:zu=20
40030 return
40090 rem ----------------------------
40095 rem setze start aus ruheposition
40096 rem ----------------------------
40100 poke156,cs:poke158,0:poke188,cv:poke190,cm:poke247,cu:poke248,cf
40110 poke249,cx:poke251,1:poke252,uy-2:poke155,uy:poke187,ux:poke159,ux-2
40115 poke181,ct:poke254,0:pokev+21,peek(v+21)and(255-32)
40117 ifkf=1thenreturn
40120 ifbz<>1thenreturn
40130 pokev,88:pokev+2,88:pokev+4,88:pokev+1,189:pokev+3,189:pokev+5,210
40140 pokev+16,0:return
49990 rem --------------
49995 rem sezte paramter
49996 rem --------------
50000 fora=1to27:readb:szene(a)=b:next
51000 poke53283,09:poke53282,11
51010 poke50168,16:poke50169,17:poke50170,18:poke50171,39
51015 poke50172,40:poke50173,41:poke50174,42
51020 pokev+39,1:pokev+40,6:pokev+41,15:pokev+42,9:pokev+43,15:pokev+44,7
51021 pokev+45,2:poke1038,0:poke1041,0
51025 pokev+28,0
51030 pokev+16,0:pokev+27,15:pokev+23,32:pokev+29,16
51040 poke828,2:poke829,9:poke830,6:poke831,7
51045 poke1046,1:poke1047,0:poke1048,0:poke1058,0:poke1059,5
51050 poke1043,0:poke1044,100:poke1045,0:poke1040,1
51055 poke1050,1:poke1051,1:poke1052,1:poke1053,1
51060 poke1003,5:poke1005,5:poke1023,0:poke1002,0:poke1004,0
51070 sys4096*8
51080 di$(1)="3 sands]cke "
51090 di$(2)="5 sands]cke "
51100 di$(3)="10 sands]cke "
51110 di$(4)="20 einheiten gas"
51120 di$(5)="40 einheiten gas"
51130 di$(6)="1 ballon ":poke1054,1
51150 fora=1to30:in(a)=1:next
51200 fora=0to7:readb:poke33956+a,b:next
51210 fora=58376to58455:pokea,0:next
54000 d1=1:return
55000 data 1,2,3,4,5,7,6,8,6,9,10,11,6,22,6,12,13,14,15,17,18
55010 data 19,20,16,21,23,24
55020 data 0,128,192,224,240,248,252,254
59990 rem ------------------------
59995 rem titel und vorbereitungen
59996 rem ------------------------
60000 poke1003,5:poke1005,5:poke1040,1:poke53280,0:poke53281,0
60020 poke158,0:poke254,0
60030 poke977,250:poke978,2:poke979,0
60100 print"[147]nichts als ..."
60110 fora=1to1500:next
60120 print" [149][192] [192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192] [192] [192] [192] [192][192][192] [192][192][192]"
60130 print" [149][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
60140 print" [149][192][192][192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192] [192] [192] [192] [192][192][192] [192]"
60150 print" [149][192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192] [192]"
60160 print" [149][192] [192] [192][192][192] [192] [192][192][192] [192][192][192] [192][192][192] [192][192][192] [192][192][192] [192] [192]"
60170 print"[154][211][212][213][214][215][216][216][215][214][213][212][211][211][212][213][214][215][216][216][215][214][213][212][211][211][212][213][214][215][216][216][215][214][213][212][211][211][212]"
60175 geta$:ifa$=" "then60280
60180 fora=1to1000:next
60200 print"[158]programmiert von ....... > achim m@ller"
60210 fora=1to1500:next
60215 geta$:ifa$=" "then60280
60220 print"[158]tolle ideen von ........ < walter l[rch"
60230 fora=1to1500:next
60233 geta$:ifa$=" "then60280
60235 print"[158] %'"
60240 print"[158]gewidmet f@r ........... & claudia"
60245 print" "
60246 fora=1to1000:next
60250 fora=1to1500:next
60260 x=105:y=215:t$="dr@cke space":gosub62000
60270 geta$:ifa$<>" "then60270
60280 print"[158] spielertyp: b[146] ..... schl]fer "
60285 print" "
60290 print"[158] b[146] ..... durchschnittsb@rger";
60300 print" "
60310 print"[158] b[146] ..... hektiker "
60315 print" "
60320 print" oder: b[146] ..... was iss los ? "
60321 print" "
60322 print" [160][160] "
60324 print"[156]w]hle mit joystick oben/unten und feuer"
60330 bs=49685:la=23:hw=3:gosub62200
60342 rem ----------------------
60343 rem sezte steuerungsstufen
60344 rem ----------------------
60345 ifwa=4thengoto61000
60350 on wa gosub 60500,60600,60700
60360 poke1054,0:poke182,0:poke148,1:poke147,1:poke188,1:poke1003,20:poke1005,20
60370 ux=50:uy=50:gas=40:bz=1:poke1023,gas:sa=5:le=20
60380 return
60500 cv=5:ct=5:cf=6:cx=3:cs=4:cu=5
60510 cm=5:ba=3:wf=.7:ff=0.1:fw=3:fz=4:poke1049,4
60520 return
60600 cv=5:ct=1:cf=4:cx=2:cs=3:cu=5
60610 cm=5:ba=3:wf=.6:ff=0.2:fw=2:fz=2:poke1049,3
60620 return
60700 cv=5:ct=0:cf=3:cx=1:cs=2:cu=3
60710 cm=5:ba=4:wf=.5:ff=0.4:fw=0:fz=1:poke1049,2
60720 return
61000 print"[147]sehr geehrter spieler, wir gratulieren"
61010 print"ihnen zum kauf dieser hochwertigen"
61020 print"diskette/zeitschrift. die folgende"
61030 print"anleitung soll ihnen helfen sich mit"
61040 print"unserem produkt besser zurechtzufinden."
61042 print"f@r eventuelle joystichsch]den o.]."
61044 print"k[nnen wir keine haftung @bernehmen !"
61046 gosub63000
61050 print"um ihr vorwissen richtig einstufen zu"
61060 print"k[nnen, beantworten sie bitte folgende"
61070 print"frage:":print"was ist eine cpu ?"
61080 print"[158] ..... coffee producing unit"
61090 print" ..... control processing unit"
61100 print" ..... eine partei in bayern"
61110 print" ..... weiss nicht"
61120 print" "
61130 print""
61140 hw=3:bs=49632:la=35:gosub62200
61150 onwagoto61200,61250,61300,61350
61200 print"[147]?out of coffee error in 60234":fora=1to1000:next
61210 if(peek(56320)and16)<>0then61210
61220 goto61500
61250 print"[147]wie einfallslos ! sie m@ssen"
61255 print"informatiker sein. da sie sich so gut"
61260 print"auskennen, brauchen sie auch keine"
61270 print"anleitung."
61280 gosub63000
61290 goto61990
61300 print"[147]ich glaube sie verwechseln da etwas !"
61310 print"aber das macht nichts ! sie m@ssen ja"
61320 print"nicht jede partei kennen."
61330 gosub63000
61340 goto61500
61350 print"[147]sie haben eine anleitung dringend"
61360 print"n[tig !"
61370 gosub63000:goto61500
61400 rem
61450 rem
61500 print"sinn des spiels:":print"mmmmmmmmmmmmmmmm"
61510 print"versuchen sie lieber keinen zu finden !"
61520 print"ziel des spiels:":print"mmmmmmmmmmmmmmmm"
61530 print"man[vrieren sie ihren ballon heil durch"
61540 print"alle 27 bilder und wieder zur@ck."
61545 print"retten sie dabei die menschen ;, die in"
61546 print"den bildern verteilt sind. aus dank"
61547 print"erhalten sie dann gas, sands]cke oder"
61548 print"einen ersatzballon. nehmen sie sich vor"
61550 print"der eigenwilligen blitzenden wolke und"
61560 print"den flugzeugen in acht !"
61570 gosub63000
61580 print"steuerung:":print"mmmmmmmmm"
61590 print"der ballon l]sst sich nur durch"
61600 print"bet]tigen des gasbrenners (tr]ge) und"
61610 print"abwurf von sands]cken (schneller)"
61620 print"steuern. die bewegung in x-richtung"
61630 print"h]ngt von der windrichtung ab, die"
61640 print"man sich zu jeder zeit anzeigen lassen"
61645 print"kann. im letzten bild erh]lt man einen"
61646 print"motor, der auch die steuerung nach"
61647 print"links bzw. rechts erm[glicht."
61649 gosub63000
61650 print"joystickbelegung:":print"mmmmmmmmmmmmmmmm"
61655 print"feuerknopf = feuern"
61660 print"oben = wind anzeigen (=pause)"
61670 print"unten = sandsack abwerfen"
61675 print"nur mit motor:"
61680 print"links = bewegung links"
61690 print"rechts = bewegung rechts"
61695 gosub 63000
61700 print"taktiktip:":print"mmmmmmmmm"
61710 print"sammeln sie auf dem hinweg nur die"
61720 print"menschen auf, die sie leicht erreichen"
61730 print"k[nnen bzw. wenn sie wieder nachschub"
61740 print"(gas oder sands]cke) brauchen !"
61750 print"denn auf dem r@ckweg haben sie ja den"
61760 print"motor (f@r den sie auch gas brauchen)."
61765 print"die punkte errechnen sich @brigens aus"
61766 print"der ben[tigten zeit, den geretteten"
61767 print"menschen und den restlichen ballons."
61770 gosub63000
61990 poke198,1:poke631,32:goto60000
62000 pokev+1,y:pokev+3,y:pokev+5,y+21
62010 fora=1to40:t(a)=32:next
62020 fora=1tolen(t$):t(a)=asc(mid$(t$,a,1)):ift(a)>63thent(a)=t(a)-64
62030 next:b=1:pokev+21,7
62040 fora=30tox
62050 pokev,a:pokev+2,a:pokev+4,a:next
62060 fora=x+1tox+len(t$)*8
62070 pokev,a:pokev+2,a:pokev+4,a
62080 ifa/8=int(a/8)thenpokefna(v),t(b):b=b+1
62090 next
62095 fora=x+len(t$)*8+1to255
62096 pokev,a:pokev+2,a:pokev+4,a:next
62100 pokev+16,7
62110 fora=0to100
62120 pokev,a:pokev+2,a:pokev+4,a
62130 next
62140 pokev+16,0:pokev,0:pokev+2,0:pokev+4,0:return
62200 ifd1=0then62350
62202 a=0:poke1003,20:goto62235
62205 b=peek(56320):ifb=127then62205
62210 if(band1)=0thenaa=a:a=a-1:ifa<0thena=hw
62220 if(band2)=0thenaa=a:a=a+1:ifa>hwthena=0
62230 if(band16)=0then62320
62235 ifbs<>49685then62310
62240 ona+1goto62250,62260,62270,62280
62250 poke1003,30:goto62300
62260 poke1003,10:goto62300
62270 poke1003,01:goto62300
62280 poke1003,50:goto62300
62300 poke1002,0
62310 pokebs+80*aa,32:pokebs+80*a,60:forc=1to100:next:goto62205
62320 wa=a+1:return
62350 if(peek(56320)and16)<>0then62350
62360 return
63000 print"dr@cke feuerknopf ![145]"
63010 if(peek(56320)and16)<>0then63010
63020 return